gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\Include\adminbase.asp

    

<% 
' ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  = 
'过程名：CheckAdminLogin
'作  用：管理员登录
'参  数：
'		strUserId：从表单传来的用户名原文（未加密）
'		strPwd：从表单传来的用户密码原文（未加密）
' ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  = 
Sub CheckAdminLogin(strUserId, strPwd)
	dim strSQL, rsObj
	
	if strUserId <> "" then
		strSQL = "SELECT * FROM Admins WHERE Account = '" & strUserId & "'"
		
		set rsObj  =  conn.Execute(strSQL)
		if not (rsObj.eof or err) then
			if strPwd  =  rsObj("Pwd") then
				Session("AdminAccount") = rsObj("Account")
				Session("userClass") = 1
				'关闭记录集合和数据库连接
				rsObj.Close
				Set rsObj  =  Nothing
				CloseConn()
				Response.Clear 
				Server.Transfer "default.asp"
			end if
		end if
		'关闭记录集合和数据库连接
		rsObj.Close
		Set rsObj  =  Nothing
		CloseConn()
		
		'用户不存在或密码不正确
		Response.Write "<script language = Javascript>"
		Response.Write "alert('错误！请重新输入');"
		Response.Write "window.history.go(-1);"	
		Response.Write "</script>"
	end if
end sub

' ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  = 
'过程名：ShowAdminLogin
'作  用：显示管理员登录
'参  数：无
' ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  = 
Sub ShowAdminLogin()
%>
<form method = "post" action = "login.asp" name = "form1" ID = "Form1">
  <table width = "40%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "3" align = "center" ID = "Table4">
    <tr> 
    <td colspan = "2" height = "28" bgcolor = "#73B2EF"> 
      <div align = "center"><font color = "#FFFFFF">登陆系统</font></div>
    </td>
  </tr>
  <tr> 
      <td width = "34%"> 
        <div align = "right">管理员帐号</div>
    </td>
      <td width = "66%"> 
        <input type = "text" name = "userID" size = "20" ID = "Text1">
    </td>
  </tr>
  <tr> 
      <td width = "34%"> 
        <div align = "right">管理员密码</div>
    </td>
      <td width = "66%"> 
        <input type = "password" name = "password" size = "20" value = "" ID = "Password1">
    </td>
  </tr>
  <tr> 
    <td colspan = "2" height = "28" bgcolor = "#73B2EF"> 
      <div align = "center"> 
        <input type = "submit" name = "Submit" value = "登陆" ID = "Submit1">
        <input type = "button" name = "Exit" value = "退出" onclick = window.location = "../">
      </div>
    </td>
  </tr>
</table>
</form>

<%
end Sub
%>